home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / Q-Quantum Link / (n)q2.d64 / vertgraph (.txt) < prev   
Commodore BASIC  |  2007-02-25  |  4KB  |  176 lines
  1. 10 PRINT"[147]":CLR
  2. 20 PRINT"VERTICAL BAR GRAPH"
  3. 30 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  4. 40 PRINT"INSTRUCTIONS- USE ONLY POSITIVE"
  5. 50 PRINT"NUMBERS UP TO 4 DIGITS, ENTER"
  6. 60 PRINT"ALL DECIMALS AS INTEGERS BY SHIFTING"
  7. 70 PRINT"DECIMAL PLACE TO RIGHT OR DROPPING DECIMALS"
  8. 80 PRINT"IF NO VALUE ENTER ZERO, HIT ANY KEY AFTER GRAPH IS DRAWN FOR ANALYSIS"
  9. 90 PRINT"YOU MAY ENTER UP TO 18 VALUES"
  10. 100 PRINT
  11. 110 PRINT"HIT ANY KEY TO GO ON"
  12. 120 GETG$:IFG$=""THEN120
  13. 130 PRINT"[147]"
  14. 140 PRINT"ENTER YOUR VALUES"
  15. 150 PRINT
  16. 160 INPUT"#1";AA:INPUT"#2";BA:INPUT"#3";CA
  17. 170 INPUT"#4";DA:INPUT"#5";EA:INPUT"#6";FA
  18. 180 INPUT"#7";GA:INPUT"#8";HA:INPUT"#9";IA
  19. 185 INPUT"#10";JA:INPUT"#11";KA:INPUT"#12";LA
  20. 195 INPUT"#13";MA:INPUT"#14";NA:INPUT"#15";OA
  21. 200 INPUT"#16";PA:INPUT"#17";QA:INPUT"#18";RA
  22. 210 INPUT"HIGHEST VALUE";P
  23. 215 INPUT"TOTAL # OF VALUES";N
  24. 216 PRINT"[147]"
  25. 220 AI=INT(22*AA/P):BI=INT(22*BA/P):CI=INT(22*CA/P)
  26. 225 DI=INT(22*DA/P):EI=INT(22*EA/P):FI=INT(22*FA/P)
  27. 230 GI=INT(22*GA/P):HI=INT(22*HA/P):II=INT(22*IA/P)
  28. 235 JI=INT(22*JA/P):KI=INT(22*KA/P):LI=INT(22*LA/P)
  29. 240 MI=INT(22*MA/P):NI=INT(22*NA/P):OI=INT(22*OA/P)
  30. 245 PI=INT(22*PA/P):QI=INT(22*QA/P):RI=INT(22*RA/P)
  31. 250 FORX=0TOAI:POKE1949-(40*X),102
  32. 251 POKE56221-(40*X),1:NEXT
  33. 260 FORX=0TOBI:POKE1951-(40*X),102
  34. 261 POKE56223-(40*X),1:NEXT
  35. 270 FORX=0TOCI:POKE1953-(40*X),102
  36. 271 POKE56225-(40*X),1:NEXT
  37. 280 FORX=0TODI:POKE1955-(40*X),102
  38. 281 POKE56227-(40*X),1:NEXT
  39. 290 FORX=0TOEI:POKE1957-(40*X),102
  40. 291 POKE56229-(40*X),1:NEXT
  41. 300 FORX=0TOFI:POKE1959-(40*X),102
  42. 301 POKE56231-(40*X),1:NEXT
  43. 310 FORX=0TOGI:POKE1961-(40*X),102
  44. 311 POKE56233-(40*X),1:NEXT
  45. 320 FORX=0TOHI:POKE1963-(40*X),102
  46. 321 POKE56235-(40*X),1:NEXT
  47. 330 FORX=0TOII:POKE1965-(40*X),102
  48. 331 POKE56237-(40*X),1:NEXT
  49. 340 FORX=0TOJI:POKE1967-(40*X),102
  50. 341 POKE56239-(40*X),1:NEXT
  51. 350 FORX=0TOKI:POKE1969-(40*X),102
  52. 351 POKE56241-(40*X),1:NEXT
  53. 360 FORX=0TOLI:POKE1971-(40*X),102
  54. 361 POKE56243-(40*X),1:NEXT
  55. 370 FORX=0TOMI:POKE1973-(40*X),102
  56. 371 POKE56245-(40*X),1:NEXT
  57. 389 FORX=0TONI:POKE1975-(40*X),102
  58. 390 POKE56247-(40*X),1:NEXT
  59. 400 FORX=0TOOI:POKE1977-(40*X),102
  60. 401 POKE56249-(40*X),1:NEXT
  61. 410 FORX=0TOPI:POKE1979-(40*X),102
  62. 411 POKE56251-(40*X),1:NEXT
  63. 420 FORX=0TOQI:POKE1981-(40*X),102
  64. 421 POKE56253-(40*X),1:NEXT
  65. 430 FORX=0TORI:POKE1983-(40*X),102
  66. 431 POKE56255-(40*X),1:NEXT
  67. 440 FORX=22TO0STEP-1
  68. 441 PRINTINT(X*P/22):NEXTX
  69. 443 GETG$:IFG$=""THEN443
  70. 600 FORX=1024TO1063:Y=PEEK(X)
  71. 601 A$=CHR$(Y):AA$=AA$+A$:NEXT
  72. 605 FORX=1064TO1103:Y=PEEK(X)
  73. 606 B$=CHR$(Y):BB$=BB$+B$:NEXT
  74. 700 FORX=1104TO1143:Y=PEEK(X)
  75. 701 C$=CHR$(Y):CC$=CC$+C$:NEXT
  76. 705 FORX=1144TO1183:Y=PEEK(X)
  77. 706 D$=CHR$(Y):DD$=DD$+D$:NEXT
  78. 800 FORX=1184TO1223:Y=PEEK(X)
  79. 801 E$=CHR$(Y):EE$=EE$+E$:NEXT
  80. 805 FORX=1224TO1263:Y=PEEK(X)
  81. 806 F$=CHR$(Y):FF$=FF$+F$:NEXT
  82. 900 FORX=1264TO1303:Y=PEEK(X)
  83. 901 G$=CHR$(Y):GG$=GG$+G$:NEXT
  84. 905 FORX=1304TO1343:Y=PEEK(X)
  85. 906 H$=CHR$(Y):HH$=HH$+H$:NEXT
  86. 1000 FORX=1344TO1383:Y=PEEK(X)
  87. 1001 I$=CHR$(Y):II$=II$+I$:NEXT
  88. 1010 FORX=1384TO1423:Y=PEEK(X)
  89. 1011 J$=CHR$(Y):JJ$=JJ$+J$:NEXT
  90. 1015 FORX=1424TO1463:Y=PEEK(X)
  91. 1016 K$=CHR$(Y):KK$=KK$+K$:NEXT
  92. 1020 FORX=1464TO1503:Y=PEEK(X)
  93. 1021 L$=CHR$(Y):LL$=LL$+L$:NEXT
  94. 1025 FORX=1504TO1543:Y=PEEK(X)
  95. 1026 M$=CHR$(Y):MM$=MM$+M$:NEXT
  96. 1030 FORX=1544TO1583:Y=PEEK(X)
  97. 1031 N$=CHR$(Y):NN$=NN$+N$:NEXT
  98. 1035 FORX=1584TO1623:Y=PEEK(X)
  99. 1036 O$=CHR$(Y):OO$=OO$+O$:NEXT
  100. 1040 FORX=1624TO1663:Y=PEEK(X)
  101. 1041 P$=CHR$(Y):PP$=PP$+P$:NEXT
  102. 1045 FORX=1664TO1703:Y=PEEK(X)
  103. 1046 Q$=CHR$(Y):QQ$=QQ$+Q$:NEXT
  104. 1050 FORX=1704TO1743:Y=PEEK(X)
  105. 1051 R$=CHR$(Y):RR$=RR$+R$:NEXT
  106. 1055 FORX=1744TO1783:Y=PEEK(X)
  107. 1056 S$=CHR$(Y):SS$=SS$+S$:NEXT
  108. 1057 FORX=1784TO1823:Y=PEEK(X)
  109. 1058 T$=CHR$(Y):TT$=TT$+T$:NEXT
  110. 1060 FORX=1824TO1863:Y=PEEK(X)
  111. 1061 U$=CHR$(Y):UU$=UU$+U$:NEXT
  112. 1065 FORX=1864TO1903:Y=PEEK(X)
  113. 1066 V$=CHR$(Y):VV$=VV$+V$:NEXT
  114. 1070 FORX=1904TO1943:Y=PEEK(X)
  115. 1071 W$=CHR$(Y):WW$=WW$+W$:NEXT
  116. 1075 FORX=1944TO1983:Y=PEEK(X)
  117. 1076 X$=CHR$(Y):XX$=XX$+X$:NEXT
  118. 1080 FORX=1984TO2023:Y=PEEK(X)
  119. 1081 Y$=CHR$(Y):YY$=YY$+Y$:NEXT
  120. 1090 TA(null)PRINT#4,"TOTAL OF VALUES IS" TT
  121. 1111 PRINT#4,"MEAN VALUE IS     " ME
  122. 1115 PRINT#4
  123. 1120 PRINT#4,"DATA   VALUE   %OF TOTAL"
  124. 1125 PRINT#4
  125. 1130 PRINT#4,"#1...."AA"    "INT(AA/TT*100)
  126. 1135 PRINT#4,"#2...."BA"    "INT(BA/TT*100)
  127. 1140 PRINT#4,"#3...."CA"    "INT(CA/TT*100)
  128. 1145 PRINT#4,"#4...."DA"    "INT(DA/TT*100)
  129. 1150 PRINT#4,"#5...."EA"    "INT(EA/TT*100)
  130. 1155 PRINT#4,"#6...."FA"    "INT(FA/TT*100)
  131. 1160 PRINT#4,"#7...."GA"    "INT(GA/TT*100)
  132. 1165 PRINT#4,"#8...."HA"    "INT(HA/TT*100)
  133. 1166 PRINT#4,"#9...."IA"    "INT(IA/TT*100)
  134. 1167 PRINT#4,"#10..."JA"    "INT(JA/TT*100)
  135. 1168 PRINT#4,"#11..."KA"    "INT(KA/TT*100)
  136. 1169 PRINT#4,"#12..."LA"    "INT(LA/TT*100)
  137. 1170 PRINT#4,"#13..."MA"    "INT(MA/TT*100)
  138. 1171 PRINT#4,"#14..."NA"    "INT(NA/TT*100)
  139. 1172 PRINT#4,"#15..."OA"    "INT(OA/TT*100)
  140. 1173 PRINT#4,"#16..."PA"    "INT(PA/TT*100)
  141. 1174 PRINT#4,"#17..."QA"    "INT(QA/TT*100)
  142. 1175 PRINT#4,"#18..."RA"    "INT(RA/TT*100)
  143. 1176 PRINT#4
  144. 1180 PRINT#4,"SCALE        GRAPH OF DATA"
  145. 1185 PRINT#4
  146. 1186 PRINT#4,AA$
  147. 1187 PRINT#4,BB$
  148. 1188 PRINT#4,CC$
  149. 1189 PRINT#4,DD$
  150. 1190 PRINT#4,EE$
  151. 1191 PRINT#4,FF$
  152. 1192 PRINT#4,GG$
  153. 1193 PRINT#4,HH$
  154. 1194 PRINT#4,II$
  155. 1195 PRINT#4,JJ$
  156. 1196 PRINT#4,KK$
  157. 1197 PRINT#4,LL$
  158. 1198 PRINT#4,MM$
  159. 1199 PRINT#4,NN$
  160. 1200 PRINT#4,OO$
  161. 1201 PRINT#4,PP$
  162. 1202 PRINT#4,QQ$
  163. 1203 PRINT#4,RR$
  164. 1205 PRINT#4,SS$
  165. 1206 PRINT#4,TT$
  166. 1207 PRINT#4,UU$
  167. 1208 PRINT#4,VV$
  168. 1209 PRINT#4,WW$
  169. 1210 PRINT#4,XX$
  170. 1211 PRINT#4,YY$
  171. 1250 PRINT#4,"     1 2 3 4 5 6 7 8 9 1 1 1 1 1 1 1 1 1"
  172. 1251 PRINT#4,"                       0 1 2 3 4 5 6 7 8"
  173. 1252 CLOSE4
  174. 1253 GETZ$:IFZ$=""THEN1253
  175. 1254 GOTO10
  176.